VCad Toolset v2.0
This file contains "printouts" of settings files for reference only
purposes.

*********************************************************************
PRINTOUT OF ORIGINAL V_SETVAR.LSP FILE
*********************************************************************
;;;   v_setvar.lsp v2.0
;;;   Preset Values and defaults for VCad-2.0 routines.

;;;   Typical line --> VARIABLE NAME (min 1 space) VALUE. VALUE should be
;;;   edited or verified by user. 

;;;   Or--lines may be elements of a variable "list" and may be changed.
;;;   
;;;   Blank "string" entries are entered w/ dbl quotes ("")
;;;   Do not change format, e.g. quated strings, decimal numbers, etc.
;;;   Decimal numbers less than 1 MUST begin with zero (e.g. 0.123)
;;;   Inactive code or "comments" follow semi-colon(s)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun v_set1 () (setq  ;;         no edit    ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ****************** FILES/PATHS **************************************
;; Use full path name with DOUBLE BACKSLASHES (\\)

;;-----------Directory path name where VCad dwg blocks are stored:
gp82 "c:\\acad\\vdwg\\" 

;;-----------Line type file used (e.g. "c:\\acad\\support\\acad.lin")
gp10 "c:\\r13\\com\\support\\acad.lin"

;;-----------Default directory to store dim style definition files. 
gp83 "c:\\acad\\dim\\"

;;******************* LAYER GROUPS--SOFTDESK ***************************
g_lck   "f"        ;; Check for and optionally use active Softdesk layer group
                   ;; name componets.  ("t"=true  "f"=false)
;;******************* LAYER GROUPS--ALL ********************************
g_pla   "f"        ;; Plan componet used in layer group names? (t/f or ""=N/A
;;******************* LAYER GROUPS--NON-SOFTDESK (See docs) ************
g_lypat ""         ;; Layer group name template--use only if Softdesk is
                   ;; NOT installed  e.g. "{T}{P}{R}{L}{M}" (see Doc). ""=N/A
g_spp   ""         ;; Layer group name separator--use only if SDSK NOT installed
                   ;; (e.g. "_").  Use "" if N/A,
;;******************* SOFTDESK ALTERNATE MACROS ************************
g_sdsk  "f"        ;; Load alternate Softdesk macros--v_sdsk.lsp? (t/f or ""=N/A)

;; ****************** CUSTOM STATUS LINE *******************************
g_mdf   ""         ;; Name of modemacro file to load (w/ no file extension)
                   ;; Options provided: "V_mDOS"--DOS; "V_mDOSs"--Shorter length;
                   ;; "V_mWIN"--R13+ Windows;  ""--none

;; ****************** LINE DRAW D Series (also used in some objects) ***
gl1  "xfine"       ;; Layer, X-thin line
gc1  5             ;; Color, layer #1 
gl2  "thin"        ;; Layer, thin line 
gc2  3             ;; Color, layer #2
gl3  "medium"      ;; Layer, medium line
gc3  1             ;; Color, layer #3
gl4  "heavy"       ;; Layer, heavy line
gc4  7             ;; Color, layer #4

;; ****************** DASHED LINE TYPES, LINE DRAW D-series ************
gl10 "hidden"      ;; Layer, dashed xfine line
gc10 5             ;; Color, layer #10
gy10 "dashed"      ;; Linetype name, #10  (alternate= "dash32" IF DEFINED)
 
gl11 "dashed"      ;; Layer, dashed thin line
gc11 3             ;; Color, layer #11
gy11 "dashed2"     ;; linetype name, #11  (alt= "dash16") 

gl12 "mdash"       ;; Layer, dashed med line
gc12 1             ;; Color, layer #12
gy12 "dashedx2"    ;; Linetype name, #12  (alt= "dash332")

gl13 "hdash"       ;; Layer, dashed heavy line
gc13 7             ;; Color layer #13
gy13 "dashedx2"    ;; linetype name, #13  (alt= "dashed2")

;; ****************** DOT LINE TYPES, LINE DRAW D-SERIES ***************
gl14 "phantom"     ;; Layer, dotted xfine line
gc14 11            ;; Color, layer #14
gy14 "dot"         ;; Linetype name, #14  (alternate= "dot4" IF DEFINED)

gl15 "dot"         ;; Layer, dotted thin line 
gc15 2             ;; Color, layer #15
gy15 "dot"         ;; Linetype name, #15  (alt= "dot2")
                
gl16 "mdot"        ;; Layer, dotted med line
gc16 1             ;; Color layer #16
gy16 "dot2"        ;; Linetype name #16   (alt= "dot332")

gl17 "hdot"        ;; Layer dotted heavy line
gc17 7             ;; Color, layer #17
gy17 "dotx2"       ;; Linetype name #17   (alt= "dot")

;; ****************** NOTE TEXT ****************************************
gl20 "anntext"     ;; Layer, typical note/anotation/leader text
gc20 4             ;; Color, layer #20
gt20 "anntext"     ;; Style, for #20
gh20 0.09375       ;; Plot height (inches), for #20 (e.g .09375=3/32")
gs20 "anntxts"     ;; Layer, Small size annot text
gk20 5             ;; Color, Small size annot text
gz20 0.0625        ;; Plot height (inches), small size annot text

;; ****************** ANNOTATION OBJECTS *******************************
gl30  "annobj"     ;; Layer, leader lines, etc
gc30  4            ;; Color, layer #30

;; ****************** PLAN VIEW ****************************************
gx80 34.5          ;; Width, plot size of "sheet" for Plan View (inches)
gx81 23.0          ;; Height, plot size of sheet for Plan View 
go80  0.5          ;; Plot unit X-Offset from origin (lower left corner)
go81 -1.0          ;; Plot unit Y-Offset form origin (lower left corner)

;; ****************** TEXT UTILITY *************************************
gx85 1.0           ;; WORD WRAP--Text hyphen prompt: min plot length (in) 
                   ;; of trailing blank space in line, to prompt for hyphen.
                   
;; ****************** MULTISCALE ***************************************
gldt "detborder"   ;; Layer name--to use w/ "auto-zoom" when the "check
                   ;; border layer only" option is being used.

;; ****************** DIMENSIONS ***************************************
gydim "center2"    ;; Lintype name for "centered" dimension extension lines
                   ;;                     (alt= "dimcen" if defined)
gd83  "v_dimdot"   ;; Dot arrow block for centered conditon dim's
gd84  "v_dimtck"   ;; Default arrow block for dim-mark-restore

;; ******************* XWRITE DDBOX ************************************
gdxx ""            ;; Dialog box assumes mono text for DOS and MS-proportional
                   ;; for Windows. Use "m" to use mono in Windows.
                   ;; Use "" to use default.

;; ****************** TEXT COMMANDS (T1-4 & TT1-4) *********************
gtxt (list  ;; no edit
;;  NOTE: Lines are elements of a "list".  Template as follows:
;; '(style_name  text_ht  layname  lay_color) --------------------------

;;---------------------------------------- T-SERIES TEXT 
'("txg1"      0.09375   "txg1"     4)   ;; T1  sml
'("txg2"      0.125     "txg2"     1)   ;; T2  med
'("txg3"      0.1875    "txg3"     7)   ;; T3  lrg
'("txg4"      0.25      "txg4"     7)   ;; T4  x-lrg

;;---------------------------------------- TT-SERIES TEXT (Font Family option)
                                        ;;          Style name= "H" if
; '("H"       0.125     "tt1"      5)   ;; TT1 sml  using font family 
; '("H"       0.1875    "tt2"      4)   ;; TT2 med  option, style name will
; '("H"       0.25      "tt3"      1)   ;; TT3 lg   be created at runtime.
; '("H"       0.5       "tt4"      7)   ;; TT4 xlg  (leading semi-colons
                                        ;;           set lines inactive)

;;---------------------------------------- TT-SERIES TEXT (non-family option)
                                        ;;          Use actual style names
'("TTX1"      0.125     "tt1"      5)   ;; TT1 sml  and define in v_fonts 
'("TTX2"      0.1875    "tt2"      4)   ;; TT2 med  file. (no leading semi-
'("TTX3"      0.25      "tt3"      1)   ;; TT3 lg   colons means these
'("TTX4"      0.5       "tt4"      7)   ;; TT4 xlg  lines are active)
                                        ;;          (see Doc)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
))(princ)) ;; end v_set1      No edit         ;
(defun v_set2 () (setq                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ****************** AUX LINES DRAW  (F-SERIES) ***********************
g1l  "XTHN2"       ;; Layer x-thin       
g1c  200           ;; Color x-thin
g3l  "THIN2"       ;; Layer thin
g3c  125           ;; Col thin
g5l  "MED2"        ;; Layer med
g5c  232           ;; Col med
g7l  "HVY2"        ;; Layer heavy
g7c  253           ;; Col heavy

;; ****************** AUX LINES DRAW  (G-SERIES) ***********************
g2l  "XTHN3"       ;; Layer x-thin
g2c  223           ;; Col x-thin
g4l  "THIN3"       ;; Layer thin
g4c  120           ;; Col thin
g6l  "MED3"        ;; Layer med
g6c  30            ;; Col med
g8l  "HVY3"        ;; Layer heavy
g8c  41            ;; Col heavy 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)(princ)) ;; end v_set2       No edit         ;
(defun v_set3 () (setq                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ****************** REFERENCE SYMBOLS (Detail & Section) *************
gh21  0.09375      ;; Plot height (inches), detail/section mark attrib text
ge31  0            ;; Default set--edit det/sec mark text @ insertion? (0/1)

gl31  "anndtobj"   ;; Layer, detail mark leader lines
gc31  4            ;; Color, layer #31
gx33  0.5625       ;; Diameter detail bubble mark (plot ht inches)

gl32  "annsxobj"   ;; Layer, section mark lines
gc32  4            ;; Color, layer #32
gx34  0.5625       ;; Diameter section bubble mark (.5625=9/16)

;; ****************** REFERENCE BUBBLE LEADER **************************
gl35  "anndtobj"   ;; Layer, bubble leader
gc35  4            ;; Color, layer #35
gt35  "anntext"    ;; Text Style for attribute
gh35   0.09375     ;; Text height for attribute

gxc35  0.375       ;; Diameter of circle bubble (plot dec. inches)
gxs35  0.375       ;; Height of square bubble
gxt35  0.375       ;; Height of triangle bubbleDiameter bubble
gxh35  0.375       ;; Height of hexagon bubble
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)(princ)) ;; end v_set3     No Edit           ;
(defun v_set4 () (setq                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ****************** FRAMES & PANELS **********************************
gl74  "casework"   ;; Layer for casework description
gc74  3            ;; Color, layer 74
gl75  "windelev"   ;; Layer for window elevation description
gc75  2            ;; Color, layer 75
gl76  "doorelev"   ;; Layer for door elevation description
gc76  2            ;; Color, layer 76

gl77  "dswing"     ;; Elev Swing symbol layer
gc77  5            ;; Color, layer 77
gy77  "dashed2"    ;; Line type name, layer 77

gl78  "hatch"      ;; Layer for hatching
gc78  5            ;; Color, layer 78
gx78  "U"          ;; Hatch name ("U" up-case = user defined)
ga78  45.0         ;; Hatch angle (degrees)
gs78  0.0157       ;; Spacing (plot units) if User/ Scale if named
gd78  0            ;; Double hatch 0=no 1=yer (appl to user hatch only)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)(princ)) ;; end v_set4     No Edit           ;
(defun v_set5 () (setq                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ****************** DRAWING TITLE ************************************
gl6  "titline"     ;; Layer, title underlines
gc6   7            ;; Color, layer #5
gx6   0.75         ;; Default extension length of title lines
gl25  "textl"      ;; Layer title bubble text
gc25  7            ;; Color layer #25
gh25  0.1875       ;; Plot Height of title bubble text (inches)
gx25  0.5          ;; Plot Diameter of title bubble

gl22  "textm"      ;; Layer Title text
gc22  1            ;; Color, layer #22
gt22  "titx1"      ;; Style-1, Title text
gh22  0.25         ;; Height, style 22-24
gt23  "titx2"      ;; Alt style-2, Title text
gt24  "titx3"      ;; Alt style-3, Title text

gl26  "textm"      ;; Layer Title subtext (e.g. "Scale=...)
gc26  1            ;; Color, layer #26
gt26  "tittextm"   ;; Style Title subtext
gh26  0.125        ;; Plot height Title subtext
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)(princ)) ;; end v_set5     No edit           ;
(defun v_set6 () (setq                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ****************** STRUCTURAL OBJECTS *******************************
gl40  "structural" ;; Layer, frm members (w/ half arrows)
gc40  1            ;; Color, layer #40
gl41  "framing"    ;; Layer, beams (no arrows)
gc41  7            ;; Color, layer #41
gl42  "framext"    ;; Layer, extents (of frm members) w/dbl arrow 
gc42  3            ;; Color, layer #42
gl43  "consttag"   ;; Layer, construction tags/text
gc43  4            ;; Color, layer #43
gt43  "anntext"    ;; Style, construction annotation text
gh43  0.09375      ;; Plot height, for style #43 (decimal inches)
gl44  "jamb"       ;; Jamb layer for wall header routine
gc44  7            ;; Color, layer #44
                   ;; List of root layer names of object to erase if
gx45 (list         ;; (No edit this line)            found @ wall header
"OPENING"          ;; Begin list. Use upper case, insert lines as needed
"JAMB3D"           ;; For none enter "" at begin list line
"HEADER"           ;; Blank out other lines
"WALL3D"
)                  ;; end list (no edit this line)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)(princ)) ;; end v_set6     No edit           ;
(defun v_set7 () (setq                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ****************** WALL FILL HATCHING ROUTINE ***********************
gl70 "jambx"       ;; Layer for "temporary" lines
gc70  2            ;; Color, layer #70
gl71  "poche"      ;; Layer for wall fill hatch
gc71  9            ;; Color, layer #71
gl72  "jamb"       ;; Jamb layer 
gc72  7            ;; Color, layer #72
gl73  "wall"       ;; Layer of wall lines to hatch within
gc73  2            ;; Color layer #73
gx70  "U"          ;; HATCH   Name:  "U"=user or verified hatch name Up case.
gx71  0.0          ;;   Angle of hatch (both U or hatch name) degrees
gx72  0.0157       ;;   "User" spacing (plot units)-or-named hatch scale fac
gx73  1            ;;   Double? (1=yes 0=no).  Active for "user" hatch only
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)(princ)) ;; end v_set7     No edit           ;
;; end v_setvar.lsp                           ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





************************************************************
PRINTOUT OF ORIGINAL V_FONTS.LSP FILE
************************************************************

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; V_FONTS.LSP                                             ;
;; List of font names for styles named in v_setvar.lsp     ; 
;; Also should include all possible styles if the          ;
;; font-mapping (Style-Set) command is used                ; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun v_fonts ()             ;; no edit                   ;
(setq stlist (list                                         ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TEXT STYLE FONTS LIST begins below                      ;
;; Each active line defines the font to use for a style.   ;
;; Two different fonts are possible for each style, for    ;
;; use with Style-set command.                             ;
;;                                                         ;
;; Start line with:  '(                                    ;
;; 1st element:  Style name in quotes                      ;
;; 2nd element:  Fast font name in quotes                  ;
;; 3th element:  Prsentation font name in quotes           ;
;; End line with: )                                        ;
;;                                                         ;
;; Must use minimum 1-space between 1,2, and 3             ;
;; All style names specified in v_setvar.lsp must be       ;
;; listed here.  Additional names are for use with         ;
;; the Style=Set command, and are optional.  Examples      ;
;; below may be deleted if not used.                       ;
;; A semicolon at beginning of line disables the line      ;
;;                                                         ;
;; Note: For Autocad (or any) font files that are located  ;
;; in directories that are listed in the Acad "Support     ;
;; path", it is not recommended that the full path font    ;
;; file name be used--the path becomes "hardcoded' with    ;
;; the style, and if later moved to a different directory, ;
;; will not be found.  ".SHX" extensions may be omitted.   ;
;;                                                         ;
;; For font files not in the "path", the full path         ;
;; font file name must be used.                            ;
;; IMPORTANT: directory paths must use a double backslash  ;
;;      e.g.  c:\\windows\\system\\fontfile.ttf            ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
'("standard"      "TXT"   "ROMANS"   )
'("annsxtext"     "TXT"   "TXT"      )
'("annsymtext"    "TXT"   "TXT"      )
'("anntable"      "TXT"   "TXT"      )
'("anntext"       "TXT"   "ROMANS"   )
'("atttext"       "TXT"   "TXT"      )
'("anndttext"     "TXT"   "TXT"      )

'("bordertextl"   "TXT"   "TXT"      )
'("bordertextm"   "TXT"   "TXT"      )
'("bordertexts"   "TXT"   "TXT"      )

'("dimtext"       "TXT"   "TXT"      ) 
'("gridtext"      "TXT"   "TXT"      )

'("lgdtextl"      "TXT"   "TXT"      )
'("lgdtextm"      "TXT"   "TXT"      )
'("lgdtexts"      "TXT"   "TXT"      )

'("matchtext"     "TXT"   "TXT"      )
'("objtext"       "TXT"   "TXT"      )

'("schtextl"      "TXT"   "TXT"      )
'("schtextm"      "TXT"   "TXT"      )
'("schtexts"      "TXT"   "TXT"      )

'("xfine"         "TXT"   "TXT"      )
'("textl"         "TXT"   "TXT"      )
'("textm"         "TXT"   "TXT"      )
'("texts"         "TXT"   "TXT"      )

'("titleblkl"     "TXT"   "TXT"      )
'("titleblkm"     "TXT"   "TXT"      )
'("titleblks"     "TXT"   "TXT"      )

'("tittextl"      "TXT"   "TXT"      )
'("tittextm"      "TXT"   "TXT"      )
'("tittexts"      "TXT"   "TXT"      )

'("titx1"         "TXT"   "TXT"      )
'("titx2"         "TXT"   "TXT"      )
'("titx3"         "TXT"   "TXT"      )

;;;;;;;;; GEN TEXT COMMANDS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
'("txg1"          "TXT"   "TXT"      )
'("txg2"          "TXT"   "TXT"      )
'("txg3"          "TXT"   "TXT"      )
'("txg4"          "TXT"   "TXT"      )

;;;;;;;;; TITLE TEXT COMMANDS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; IF USING FONT FAMILIES with the command                 ;
;;   The style names must be as listed below (the font     ;
;;   names will probably need to be edited--those provided ;
;;   correspond to "X-Font" product).                      ;
;;   Remove any leading semi-colons at each line to        ;
;;   activate, and comment out (w/ semicolons) the         ;
;;   Non-familiy list                                      ;
;; IF NOT USING FONT FAMILIES                              ;
;;   Comment out each line of the Family list. Activate    ;
;;   the Non-family list by removing any leading semi-     ;
;;   colons.  Text style names can be arbitrary (but must  ;
;;   match those in v_setvar.lsp).  Only 4 styles may be   ; 
;;   defined.                                              ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;; Begin Title-Text for FONT FAMILIES 
; '("H-L1-F"        "X-HLVL1F"   "X-HLVL1D"      )  ;; D=dbl filled
; '("H-L2-F"        "X-HLVL2F"   "X-HLVL2D"      )
; '("H-L3-F"        "X-HLVL3F"   "X-HLVL3D"      )
; '("H-M1-F"        "X-HLVM1F"   "X-HLVM1D"      )
; '("H-M2-F"        "X-HLVM2F"   "X-HLVM2D"      )
; '("H-M3-F"        "X-HLVM3F"   "X-HLVM3S"      )  ;; (Used S, bad D file)
; '("H-B1-F"        "X-HLVB1F"   "X-HLVB1D"      )
; '("H-B2-F"        "X-HLVB2F"   "X-HLVB2D"      )
; '("H-B3-F"        "X-HLVB3F"   "X-HLVB3D"      )

; '("H-L1-O"        "X-HLVL1F"   "X-HLVL1O"      )  ;; O=outline
; '("H-L2-O"        "X-HLVL2F"   "X-HLVL2O"      )
; '("H-L3-O"        "X-HLVL3F"   "X-HLVL3O"      )
; '("H-M1-O"        "X-HLVM1F"   "X-HLVM1O"      )
; '("H-M2-O"        "X-HLVM2F"   "X-HLVM2O"      )
; '("H-M3-O"        "X-HLVM3F"   "X-HLVM3O"      )
; '("H-B1-O"        "X-HLVB1F"   "X-HLVB1O"      )
; '("H-B2-O"        "X-HLVB2F"   "X-HLVB2O"      )
; '("H-B3-O"        "X-HLVB3F"   "X-HLVB3O"      )

; '("H-M1-S"        "S-HLVM1F"   "S-HLVM1S"      )  ;; S=shadow
; '("H-M2-S"        "S-HLVM2F"   "S-HLVM2S"      )
; '("H-M3-S"        "S-HLVM3F"   "S-HLVM3S"      )
;; End list for Font Families .........................

;;;;;;;;;;; Begin Title-Text List--NO FONT FAMILIES 
  '("ttx1"          "TXT"        "TXT"        ) 
  '("ttx2"          "TXT"        "TXT"        )
  '("ttx3"          "TXT"        "TXT"        )
  '("ttx4"          "TXT"        "TXT"        )
;; End list for Non-Families 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)) ; end list                                              ;
) ; end v_fonts                                            ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;







************************************************************
PRINTOUT OF ORIGINAL V_CMD.LSP FILE
************************************************************

;; v_cmd.lsp file 
;; Keyboard command names and calls
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DIMENSIONS ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DIM STYLE ;;;; 
(defun c:dsm ()        
  (load "v_dset")      
  (v_dset)             
  (setq v_dset nil)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DIME MOVE ;;;;;
(defun c:dm ()         
  (if (= nil v_dimv)   
    (load "v_dimv")
  )
  (v_dimv)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DIM CENTER ;;;
(defun c:dc ()         
  (if (= nil v_dimc)   
    (load "V_DIMC")    
  )                          
  (v_dimc)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:db ()               ;; Changes arrow block 
  (if (= nil v_dimr)         ;; to currently defined
    (load "V_DIMR")       
  )                        
  (v_dimr)                   
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DISPLAY/UCS ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; UCS ;;;;;;;;;
(defun c:uu ()                
  (if (= nil v_ucs)
    (load "v_ucs")
  )
  (v_ucs "ucs")
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; VIEW STEP ;;;;
(defun c:v ()           
  (if (and (= (getvar "TILEMODE") 0)
           (= (getvar "CVPORT") 1))
    (prompt "\nActivate MODEL SPACE for the ViewStep command")
    (progn
      (if (= nil v_vwpt)(load "v_vwpt"))
      (v_vwpt nil)
    )
  )
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PLAN VIEW ;;;;
(defun c:pv ()               ;; creates and/or 
  (shtvw)                    ;; restores preset view
  (princ)               
)                  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DRAW OBJECTS ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; BREAK LINE ;;;
(defun c:bk ()               
  (if (= nil v_bkln)         
    (load "V_BKLN")          
  )
  (v_bkln)
  (princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FRAM PLN OBJ 
(defun c:r ()                ;; draws structural plan
  (if (= nil v_frame)(progn  ;; symbols (w/ submenu)
    (prompt "\nLoading file ...")
    (load "v_frame")
    (v_set6)
  ))
  (v_frame)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FRAMES/PANELS 
(defun c:fp ()               ;; draws elevations
  (if (= nil v_fpan)(progn   ;; of windows/doors/etc
    (princ "\nLoading ...")
    (load "v_fpan")
    (v_set4)
  ))
  (v_fpan)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LEADER ;;;;;;;
(defun c:dr ()               ;; draw leader w/ arch
  (if (= nil v_leader)       ;; style arrow and 
    (load "v_leader")        ;; text
  )
  (v_leader)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; X-DRAW ;;;;;;;
(defun c:xx ()               
  (if (= nil v_XDRAW)        
    (load "V_XDRAW")         
  )
  (v_xdraw)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PFACE ;;;;;;;;
(defun c:pm ()
  (if (= nil v_pface)
    (load "v_pface")
  )
  (v_pface)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; RECTANGLE ;;;;
(defun c:rec ()              
  (if (= nil rect)           
    (load "v_lined")
  )
  (rect)   
  (princ) 
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; CUSTOM OBJECTS
(defun c:co ()
  (if (= nil v_obj)
    (load "v_obj")
  )
  (v_obj)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LINE DRAW ;;;;
(defun c:d1 ()              
  (if (= nil dlin1)          
    (load "v_lined")
  )
  (dlin1) 
  (princ) 
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:d2 ()               
  (if (= nil dlin2)          
    (load "v_lined")
  )
  (dlin2)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:d3 ()              
  (if (= nil dlin3)         
    (load "v_lined")
  )
  (dlin3) 
  (princ)  
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:d4 ()              
  (if (= nil dlin4)         
    (load "v_lined")
  )
  (dlin4) 
  (princ) 
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:f1 ()              
  (if (= nil v_auxln)
    (load "v_lined")
  )
  (v_set2)
  (v_auxln "f1")
  (princ)                    
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:f2 ()              
  (if (= nil v_auxln)
    (load "v_lined")
  )
  (v_set2)
  (v_auxln "f2")  
  (princ)                    
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:f3 ()              
  (if (= nil v_auxln)
    (load "v_lined")
  )
  (v_set2)
  (v_auxln "f3")  
  (princ)                   
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:f4 ()              
  (if (= nil v_auxln)
    (load "v_lined")
  )
  (v_set2)
  (v_auxln "f4")  
  (princ)                    
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:g1 ()              
  (if (= nil v_auxln)
    (load "v_lined")
  )
  (v_set2)
  (v_auxln "g1")  
  (princ)           
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:g2 ()              
  (if (= nil v_auxln)
    (load "v_lined")
  )
  (v_set2)
  (v_auxln "g2")  
  (princ)            
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:g3 ()              
  (if (= nil v_auxln)
    (load "v_lined")
  )
  (v_set2)
  (v_auxln "g3")  
  (princ)               
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:g4 ()              
  (if (= nil v_auxln)
    (load "v_lined")
  )
  (v_set2)
  (v_auxln "g4")  
  (princ)           
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; EDITING ;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; EDIT EVERY ;;;
(defun c:ee ()            
  (if (= nil v_eat) (progn
    (prompt "\nLoading lisp file ...")
    (load "v_eat")
  ))
  (v_eat)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SUBSTITUTES
(defun c:c ()                ;; copy
  (if (= nil v_c)
    (load "v_edcoms")
  )
  (v_c)
  (princ)
)
(defun c:m ()                ;; move
  (if (= nil v_c)
    (load "v_edcoms")
  )
  (v_m)
  (princ)
)
(defun c:e ()                ;; erase
  (if (= nil v_c)
    (load "v_edcoms")
  )
  (v_e)
  (princ)
)
(defun c:x ()                ;; extend
  (if (= nil v_c)
    (load "v_edcoms")
  )
  (v_x)
  (princ)
)
(defun c:t ()                ;; trim
  (if (= nil v_c)
    (load "v_edcoms")
  )
  (v_t)
  (princ)
)
(defun c:o ()                ;; offset
  (if (= nil v_c)
    (load "v_edcoms")
  )
  (v_o)
  (princ)
)
(defun c:f ()                ;; fillet
  (if (= nil v_c)
    (load "v_edcoms")
  )
  (setq flag nil)
  (v_f)
  (princ)
)
(defun c:ff ()               ;; multi-fillet
  (if (= nil v_c)
    (load "v_edcoms")
  )
  (v_ff)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HATCH ;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PLYWD FILL ;;;
(defun c:pf ()       
  (if (= nil v_PFILL)
    (load "V_PFILL") 
  )                  
  (v_pfill)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WALL FILL ;;;;
(defun c:wf ()        
  (if (= nil v_poche)(progn 
    (load "v_poche")  
    (v_set7)
  ))                   
  (v_poche)           
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LAYERS ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GROUP MOVE/COPY
(defun c:yg ()  
  (if (= nil v_lgrp) (progn
    (prompt "\nLoading lisp file ...")
    (load "v_lgrp")
  ))
  (v_lgrp)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GROUP DISPLAY 
(defun c:gs ()               ;; SDSK only
  (if (/= "t" g_lck)
    (princ "\nChecking for SDSK layer groups not active")
    (v_st "s") 
  )
  (princ)    
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GROUP SET ;;;;
(defun c:gss ()              ;; SDSK only
  (if (/= "t" g_lck)
    (princ "\nChecking for SDSK layer groups not active")
    (v_st "g") 
  )
  (princ)                
)                       
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LAYER WHAT ;;;
(defun c:yw ()   
  (if (= nil lwhat)
    (load "v_laym")
  )
  (lwhat)                    
  (princ)                    
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LAYER SET ;;;;
(defun c:yy ()    
  (if (= nil laypic)
    (load "v_laym")
  )
  (laypic)                   
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LAYER OFF ;;;;
(defun c:yo ()            
  (if (= nil layfff)      
    (load "v_laym")
  )
  (layfff "o")  
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LAYER FREEZE ;;
(defun c:yf ()     
  (if (= nil layfff)
    (load "v_laym")
  )
  (layfff "f") 
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LAYER EXPORT 
(defun c:yx ()       
  (if (= nil lwrt)           ;; Writes current layer
    (load "v_lsnap")         ;; setting to file for
  )                          ;; use with "Layer Toggle"
  (setq g_inlay nil)         ;; command.  Overwrites
  (lwrt)                     ;; same file each time
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LAYER TOGGLE
(defun c:yt ()       
  (if (= nil lwrt)(progn     ;; Restore layer settings
    (prompt (strcat          ;; written to file with
    "\nYou must use Layer-xport"  
    " command first ...")))  ;; the Layer-export 
    (progn                   ;; command
    (setq g_inlay nil)       
    (lred))  
  )
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MULTISCALE ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DETAIL DRAW ;;
(defun c:dd ()               ;; Block (detail) editor
  (if (= nil v_det)          ;; explodes, scales, zooms,
    (load "v_det")
  )
  (v_det)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DETAIL TITLE BLOCK
(defun c:dt ()               ;; Block (detail) editor
  (if (= nil v_detbrd)          ;; explodes, scales, zooms,
    (load "v_detbrd")
  )
  (v_detbrd)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; REF OBJECTS ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DETAIL SYMBOL 
(defun c:dq ()
  (if (= nil v_mark)(progn
    (princ "\nLoading file ...")
    (load "v_mark")
    (v_set3)
  ))
  (v_mark "d")
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SECTION SYMBOL 
(defun c:sq ()  
  (if (= nil v_mark)(progn
    (princ "\nLoading file ...")
    (load "v_mark")   
    (v_set3)
  ))    
  (v_mark "s")
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; BUBBLE REF ;;;
(defun c:bb ()                
  (if (= nil v_bubref)(progn
    (load "v_bubref")
    (v_set3)
  ))
  (v_bubref)
  (princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TEXT ;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TX UTIL ;;;;;;
(defun c:tu ()        
  (if (= nil txer) (progn
    (prompt "\nLoading lisp file ...")
    (load "v_txut")
  ))
  (v_txut)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; IMPORT TXT FILE
(defun c:it ()        
  (if (= nil v_txtin)
    (load "v_txtin")
  )
  (setq v_acii "S")
  (v_imptx)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; NOTE ;;;;;;;;;
(defun c:n ()     
  (if (= nil v_note)
    (load "v_note") 
  )                 
  (v_note "n")          
  (princ)               
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; NOTE SMALL ;;;
(defun c:ns ()       
  (if (= nil v_note) 
    (load "v_note")
  )
  (v_note "s")               
  (princ)                  
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DWG TITLE ;;;;
(defun c:tit ()         
  (if (= nil v_tit)(progn
    (load "v_tit")      
    (v_set5)
  ))                     
  (v_tit)               
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FORM FILL ;;;;
(defun c:tf ()      
  (if (= nil v_txff)
    (load "v_txff")
  )
  (v_txff)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MATCH TEXT ;;;
(defun c:xt ()      
  (if (= nil v_mattxt)
    (load "v_mattxt")
  )
  (v_mattxt)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; STYLE SET ;;;;
(defun c:sset ()             ;; reset style fonts
  (if (= nil v_stset)        ;; (fast or presention)
    (load "v_stset")         ;; from list in v_fonts.lsp
  )                          ;; program file
  (v_stset)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GEN TEXT ;;;;;
(defun c:t1 ()      
  (if (= nil v_text)
    (load "v_text")
  )
  (v_text "t" 1)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:t2 ()
  (if (= nil v_text)
    (load "v_text")
  )
  (v_text "t" 2)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:t3 ()
  (if (= nil v_text)
    (load "v_text")
  )
  (v_text "t" 3)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:t4 ()
  (if (= nil v_text)
    (load "v_text")
  )
  (v_text "t" 4)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TITLE TEXT ;;
(defun c:tt1 ()        
  (if (= nil v_text)
    (load "v_text")
  )
  (v_text "h" 1)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tt2 ()
  (if (= nil v_text)
    (load "v_text")
  )
  (v_text "h" 2)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tt3 ()
  (if (= nil v_text)
    (load "v_text")
  )
  (v_text "h" 3)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tt4 ()
  (if (= nil v_text)
    (load "v_text")
  )
  (v_text "h" 4)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; UTILITY ;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PURGE ALL ;;;;
(defun c:pall ()
  (cond
    ((/= (substr(getvar "PLATFORM") 1 4) "Micr")
      (setq mpgge nil)
      (if (= nil v_pur)
        (load "v_pur")
      )
      (v_pur)
    )
    ((and (>  (atoi (substr(getvar "ACADVER") 1 2)) 12)
          (= (substr(getvar "PLATFORM") 1 4) "Micr"))
      (if (= nil v_purwin)
        (load "v_purwin")
      )
      (v_purwin)
    )
    (T (prompt "\nCommand not supported by this Acad version/platform"))
  ) ; endc
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HELP ;;;;;;;;;
(defun c:hv ()
  (if (<= (atoi (substr(getvar "ACADVER") 1 2)) 12)
    (acad_helpdlg "v_vhlp12.hlp" "")
    (help "v_vhlp13.ahp")
  )
)
(defun c:hs ()       ;; Softdesk commands
  (if (<= (atoi (substr(getvar "ACADVER") 1 2)) 12)
    (acad_helpdlg "v_shlp12.hlp" "")
    (help "v_shlp13.ahp")
  )
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TIME CLOCK ;;;
(defun c:tc ()               ;; toggles elapsed
  (if (= nil togtc)          ;; edit timer
    (load "v_togtc")
  )
  (togtc)
  (princ)                     
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; REINITIALIZE 
(defun c:init ()
  (load "v_init")
  (v_init)
  (setq v_init nil)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; XREF ;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AUTO X-WRITE 
(defun c:ax ()       
  (if (= nil autoxr)(progn
    (prompt "\nLoading ...")
    (load "v_xr1")
  ))
  (autoxr)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; X-FILE MANAGE
(defun c:ddx ()             
  (if (= nil vxrdd1)(progn  
    (prompt "\nLoading ...")
    (load "v_xr2")
  ))
  (vxrdd1)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

